(other-frame): Fix error in loop counting.

diff --git a/lisp/frame.el b/lisp/frame.el
index b915f945b97c21c172154ba79101a799d33e049b..4e7581e3b76e1497805bda70d8f513970ee59134 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -366,7 +366,7 @@ A negative ARG moves in the opposite order."
       (setq frame (previous-frame frame))
       (while (not (eq (frame-visible-p frame) t))
        (setq frame (previous-frame frame)))
-      (setq arg (1- arg)))
+      (setq arg (1+ arg)))
     (raise-frame frame)
     (select-frame frame)))
 \f